rowMeans Function
https://www.programmingr.com/tutorial/rowmeans-in-r/
library(data.table)
library(plotly)
likeability <- fread("likeability_formatted2.csv")
# JITAI 1
# Numeric
jitai_1_numeric <- likeability[ which(likeability$JITAI_TYPE=='1' & likeability$NUMERIC_TYPE!='Numeric'), 4:8]
jitai_1_numeric_means <- rowMeans(jitai_1_numeric, na.rm = TRUE)
mean_jitai_1_numeric <- round(mean(jitai_1_numeric_means), digits = 2)
# Non-Numeric
jitai_1_non_numeric <- likeability[ which(likeability$JITAI_TYPE=='1' & likeability$NUMERIC_TYPE!='Non-numeric'), 4:8]
jitai_1_non_numeric_means <- rowMeans(jitai_1_non_numeric, na.rm = TRUE)
mean_jitai_1_non_numeric <- mean(jitai_1_non_numeric_means)
# JITAI 2
# Numeric
jitai_2_numeric <- likeability[ which(likeability$JITAI_TYPE=='2' & likeability$NUMERIC_TYPE!='Numeric'), 4:8]
jitai_2_numeric_means <- rowMeans(jitai_2_numeric, na.rm = TRUE)
mean_jitai_2_numeric <- round(mean(jitai_2_numeric_means), digits = 2)
# Non numeric
jitai_2_non_numeric <- likeability[ which(likeability$JITAI_TYPE=='2' & likeability$NUMERIC_TYPE!='Non-numeric'), 4:8]
jitai_2_non_numeric_means <- rowMeans(jitai_2_non_numeric, na.rm = TRUE)
mean_jitai_2_non_numeric <- round(mean(jitai_2_non_numeric_means), 2)
# Numeric v. Non Numeric
# Numeric
jitai_numeric <- likeability[ which( likeability$NUMERIC_TYPE!='Numeric'), 4:8]
jitai_numeric_means <- rowMeans(jitai_numeric, na.rm = TRUE)
mean_jitai_numeric <- round(mean(jitai_numeric_means), digits = 2)
# Non Numeric
jitai_non_numeric <- likeability[ which( likeability$NUMERIC_TYPE!='Non-numeric'), 4:8]
jitai_non_numeric_means <- rowMeans(jitai_non_numeric, na.rm = TRUE)
mean_jitai_non_numeric <- round(mean(jitai_non_numeric_means), digits = 2)
# Plot
# https://plotly.com/r/bar-charts/
if (TRUE) {
MessageTypes <- c("JITAI 1", "JITAI 2")
Numeric <- c(mean_jitai_1_numeric, mean_jitai_2_numeric)
Non_Numeric <- c(mean_jitai_1_non_numeric, mean_jitai_2_non_numeric)
data <- data.frame(MessageTypes, Numeric, Non_Numeric)
fig <- plot_ly(
data,
x = ~MessageTypes,
y = ~Numeric,
type = 'bar',
name = 'Numeric',
text = ~Numeric,
textposition = 'auto'
)
fig <- fig %>% add_trace(
y = ~Non_Numeric,
name = 'Non Numeric',
text = ~Non_Numeric,
textposition = 'auto'
)
fig <- fig %>% layout(
title = "Numeric v. Non-Numeric",
yaxis = list(title = 'Likeability',
range = c(0, 5)),
barmode = 'group'
)
fig
}
if (TRUE) {
table <- data.frame(x = c("Numeric", "Non Numeric"),
y = c(mean_jitai_numeric, mean_jitai_non_numeric))
table$x <- factor(table$x, levels = c(as.character(table$x)))
fig <- plot_ly(
data=table,
x = ~x,
y = ~y,
name = "JITAI",
type = "bar",
text = ~y,
textposition = 'auto'
)
fig <- fig %>% layout(title = "Numeric v. Non-Numeric", xaxis = list( title = "Numeric Type"), yaxis = list( title = "Likeability", range = c(0, 5)))
fig
}
NA
Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Cmd+Option+I.
When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Cmd+Shift+K to preview the HTML file).
The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.
LS0tCnRpdGxlOiAiSklUQUkgSENJIEFuYWx5c2lzIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCkxpa2VhYmlsaXR5CgoKIyBXaGljaCBmdW5jdGlvbgpodHRwczovL3d3dy5kYXRhc2NpZW5jZW1hZGVzaW1wbGUuY29tL3doaWNoLWZ1bmN0aW9uLWluLXIvCgojQXJyYXkgSW5kZXhpbmcgCmh0dHBzOi8vcnNwYXRpYWwub3JnL2ludHIvNC1pbmRleGluZy5odG1sCgojIHJvd01lYW5zIEZ1bmN0aW9uCmh0dHBzOi8vd3d3LnByb2dyYW1taW5nci5jb20vdHV0b3JpYWwvcm93bWVhbnMtaW4tci8KCgpgYGB7cn0KbGlicmFyeShkYXRhLnRhYmxlKQpsaWJyYXJ5KHBsb3RseSkKCmxpa2VhYmlsaXR5IDwtIGZyZWFkKCJsaWtlYWJpbGl0eV9mb3JtYXR0ZWQyLmNzdiIpCgojIEpJVEFJIDEKCiMgTnVtZXJpYwpqaXRhaV8xX251bWVyaWMgPC0gbGlrZWFiaWxpdHlbIHdoaWNoKGxpa2VhYmlsaXR5JEpJVEFJX1RZUEU9PScxJyAmIGxpa2VhYmlsaXR5JE5VTUVSSUNfVFlQRSE9J051bWVyaWMnKSwgNDo4XQoKaml0YWlfMV9udW1lcmljX21lYW5zIDwtIHJvd01lYW5zKGppdGFpXzFfbnVtZXJpYywgbmEucm0gPSBUUlVFKQoKbWVhbl9qaXRhaV8xX251bWVyaWMgPC0gcm91bmQobWVhbihqaXRhaV8xX251bWVyaWNfbWVhbnMpLCBkaWdpdHMgPSAyKQoKCiMgTm9uLU51bWVyaWMKaml0YWlfMV9ub25fbnVtZXJpYyA8LSBsaWtlYWJpbGl0eVsgd2hpY2gobGlrZWFiaWxpdHkkSklUQUlfVFlQRT09JzEnICYgbGlrZWFiaWxpdHkkTlVNRVJJQ19UWVBFIT0nTm9uLW51bWVyaWMnKSwgNDo4XQoKaml0YWlfMV9ub25fbnVtZXJpY19tZWFucyA8LSByb3dNZWFucyhqaXRhaV8xX25vbl9udW1lcmljLCBuYS5ybSA9IFRSVUUpCgptZWFuX2ppdGFpXzFfbm9uX251bWVyaWMgPC0gbWVhbihqaXRhaV8xX25vbl9udW1lcmljX21lYW5zKQoKCiMgSklUQUkgMiAKCiMgTnVtZXJpYwpqaXRhaV8yX251bWVyaWMgPC0gbGlrZWFiaWxpdHlbIHdoaWNoKGxpa2VhYmlsaXR5JEpJVEFJX1RZUEU9PScyJyAmIGxpa2VhYmlsaXR5JE5VTUVSSUNfVFlQRSE9J051bWVyaWMnKSwgNDo4XQoKaml0YWlfMl9udW1lcmljX21lYW5zIDwtIHJvd01lYW5zKGppdGFpXzJfbnVtZXJpYywgbmEucm0gPSBUUlVFKQoKbWVhbl9qaXRhaV8yX251bWVyaWMgPC0gcm91bmQobWVhbihqaXRhaV8yX251bWVyaWNfbWVhbnMpLCBkaWdpdHMgPSAyKQoKIyBOb24gbnVtZXJpYwpqaXRhaV8yX25vbl9udW1lcmljIDwtIGxpa2VhYmlsaXR5WyB3aGljaChsaWtlYWJpbGl0eSRKSVRBSV9UWVBFPT0nMicgJiBsaWtlYWJpbGl0eSROVU1FUklDX1RZUEUhPSdOb24tbnVtZXJpYycpLCA0OjhdCgpqaXRhaV8yX25vbl9udW1lcmljX21lYW5zIDwtIHJvd01lYW5zKGppdGFpXzJfbm9uX251bWVyaWMsIG5hLnJtID0gVFJVRSkKCm1lYW5faml0YWlfMl9ub25fbnVtZXJpYyA8LSByb3VuZChtZWFuKGppdGFpXzJfbm9uX251bWVyaWNfbWVhbnMpLCAyKQoKCiMgTnVtZXJpYyB2LiBOb24gTnVtZXJpYwoKIyBOdW1lcmljCmppdGFpX251bWVyaWMgPC0gbGlrZWFiaWxpdHlbIHdoaWNoKCBsaWtlYWJpbGl0eSROVU1FUklDX1RZUEUhPSdOdW1lcmljJyksIDQ6OF0KCmppdGFpX251bWVyaWNfbWVhbnMgPC0gcm93TWVhbnMoaml0YWlfbnVtZXJpYywgbmEucm0gPSBUUlVFKQoKbWVhbl9qaXRhaV9udW1lcmljIDwtIHJvdW5kKG1lYW4oaml0YWlfbnVtZXJpY19tZWFucyksIGRpZ2l0cyA9IDIpCgojIE5vbiBOdW1lcmljCmppdGFpX25vbl9udW1lcmljIDwtIGxpa2VhYmlsaXR5WyB3aGljaCggbGlrZWFiaWxpdHkkTlVNRVJJQ19UWVBFIT0nTm9uLW51bWVyaWMnKSwgNDo4XQoKaml0YWlfbm9uX251bWVyaWNfbWVhbnMgPC0gcm93TWVhbnMoaml0YWlfbm9uX251bWVyaWMsIG5hLnJtID0gVFJVRSkKCm1lYW5faml0YWlfbm9uX251bWVyaWMgPC0gcm91bmQobWVhbihqaXRhaV9ub25fbnVtZXJpY19tZWFucyksIGRpZ2l0cyA9IDIpCgoKCgoKIyBQbG90CiMgaHR0cHM6Ly9wbG90bHkuY29tL3IvYmFyLWNoYXJ0cy8KCmlmIChUUlVFKSB7Ck1lc3NhZ2VUeXBlcyA8LSBjKCJKSVRBSSAxIiwgIkpJVEFJIDIiKQpOdW1lcmljIDwtIGMobWVhbl9qaXRhaV8xX251bWVyaWMsIG1lYW5faml0YWlfMl9udW1lcmljKQpOb25fTnVtZXJpYyA8LSBjKG1lYW5faml0YWlfMV9ub25fbnVtZXJpYywgbWVhbl9qaXRhaV8yX25vbl9udW1lcmljKQpkYXRhIDwtIGRhdGEuZnJhbWUoTWVzc2FnZVR5cGVzLCBOdW1lcmljLCBOb25fTnVtZXJpYykKCmZpZyA8LSBwbG90X2x5KAogIGRhdGEsIAogIHggPSB+TWVzc2FnZVR5cGVzLCAKICB5ID0gfk51bWVyaWMsIAogIHR5cGUgPSAnYmFyJywgCiAgbmFtZSA9ICdOdW1lcmljJywKICB0ZXh0ID0gfk51bWVyaWMsIAogIHRleHRwb3NpdGlvbiA9ICdhdXRvJwogICkKCmZpZyA8LSBmaWcgJT4lIGFkZF90cmFjZSgKICB5ID0gfk5vbl9OdW1lcmljLCAKICBuYW1lID0gJ05vbiBOdW1lcmljJywgIAogIHRleHQgPSB+Tm9uX051bWVyaWMsIAogIHRleHRwb3NpdGlvbiA9ICdhdXRvJwopCgpmaWcgPC0gZmlnICU+JSBsYXlvdXQoCiAgdGl0bGUgPSAiTnVtZXJpYyB2LiBOb24tTnVtZXJpYyIsIAogIHlheGlzID0gbGlzdCh0aXRsZSA9ICdMaWtlYWJpbGl0eScsIAogIHJhbmdlID0gYygwLCA1KSksIAogIGJhcm1vZGUgPSAnZ3JvdXAnCikKCmZpZwoKCgoKCn0KCmlmIChUUlVFKSB7CiAgdGFibGUgPC0gZGF0YS5mcmFtZSh4ID0gYygiTnVtZXJpYyIsICJOb24gTnVtZXJpYyIpLAogICAgICAgICAgICAgICAgICAgIHkgPSBjKG1lYW5faml0YWlfbnVtZXJpYywgbWVhbl9qaXRhaV9ub25fbnVtZXJpYykpCiAgdGFibGUkeCA8LSBmYWN0b3IodGFibGUkeCwgbGV2ZWxzID0gYyhhcy5jaGFyYWN0ZXIodGFibGUkeCkpKQogIAogIGZpZyA8LSBwbG90X2x5KAogICAgICBkYXRhPXRhYmxlLAogICAgICB4ID0gfngsCiAgICAgIHkgPSB+eSwKICAgICAgbmFtZSA9ICJKSVRBSSIsCiAgICAgIHR5cGUgPSAiYmFyIiwKICAgICAgdGV4dCA9IH55LCAKICAgICAgdGV4dHBvc2l0aW9uID0gJ2F1dG8nCiAgKQoKICBmaWcgPC0gZmlnICU+JSBsYXlvdXQodGl0bGUgPSAiTnVtZXJpYyB2LiBOb24tTnVtZXJpYyIsIHhheGlzID0gbGlzdCggdGl0bGUgPSAiTnVtZXJpYyBUeXBlIiksIHlheGlzID0gbGlzdCggdGl0bGUgPSAiTGlrZWFiaWxpdHkiLCByYW5nZSA9IGMoMCwgNSkpKQogIAogIGZpZwogIAp9CgpgYGAKCkFkZCBhIG5ldyBjaHVuayBieSBjbGlja2luZyB0aGUgKkluc2VydCBDaHVuayogYnV0dG9uIG9uIHRoZSB0b29sYmFyIG9yIGJ5IHByZXNzaW5nICpDbWQrT3B0aW9uK0kqLgoKV2hlbiB5b3Ugc2F2ZSB0aGUgbm90ZWJvb2ssIGFuIEhUTUwgZmlsZSBjb250YWluaW5nIHRoZSBjb2RlIGFuZCBvdXRwdXQgd2lsbCBiZSBzYXZlZCBhbG9uZ3NpZGUgaXQgKGNsaWNrIHRoZSAqUHJldmlldyogYnV0dG9uIG9yIHByZXNzICpDbWQrU2hpZnQrSyogdG8gcHJldmlldyB0aGUgSFRNTCBmaWxlKS4gCgpUaGUgcHJldmlldyBzaG93cyB5b3UgYSByZW5kZXJlZCBIVE1MIGNvcHkgb2YgdGhlIGNvbnRlbnRzIG9mIHRoZSBlZGl0b3IuIENvbnNlcXVlbnRseSwgdW5saWtlICpLbml0KiwgKlByZXZpZXcqIGRvZXMgbm90IHJ1biBhbnkgUiBjb2RlIGNodW5rcy4gSW5zdGVhZCwgdGhlIG91dHB1dCBvZiB0aGUgY2h1bmsgd2hlbiBpdCB3YXMgbGFzdCBydW4gaW4gdGhlIGVkaXRvciBpcyBkaXNwbGF5ZWQuCgo=